home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / blitzbasic / riblitzlibs.lha / riblitzlibs / func / FuncTest.asc < prev   
Encoding:
Text File  |  1994-04-26  |  1.9 KB  |  97 lines
  1. ;###############################
  2. ;# Example 1.1 - Misc Commands #
  3. ;###############################
  4. ;
  5. ;By Steven Matty
  6. ;
  7. ;This program tests out some of the other commands found in Func-Library
  8.  
  9. WbToScreen 0
  10. ScreensBitMap 0,0
  11.  
  12. Statement readconfig{}
  13.   NPrint "Reading system configuration...."
  14.   a$=Mid$(Hex$(Lisa),7,2)
  15.   NPrint "You have a LISA ID of $"+a$
  16.   NPrint ""
  17.   Select a$
  18.     Case "F8"
  19.       NPrint "You have an AGA chipset!"
  20.     Case "FC"
  21.       NPrint "You have an ECS chipset!"
  22.     Default
  23.       NPrint "You have an Unkown/ECS chipset!"
  24.   End Select
  25.   NPrint ""
  26.   NPrint "You have ",MemFree," bytes of RAM available..."
  27.   VWait 50
  28. End Statement
  29.  
  30. Statement readtimer{}
  31.   NPrint ""
  32.   NPrint "Hit The Mouse Button Now!"
  33.   t.l=Timer
  34.   MouseWait
  35.   a.f=(Timer-t)/50
  36.   a$=Str$(a.f)
  37.   If Mid$(a$,1,1)="." Then a$="0"+a$
  38.   NPrint "That Took You "+a$+" seconds to press the mouse button!"
  39.   Repeat
  40.   Until Joyb(0)=0
  41.   VWait 50
  42. End Statement
  43.  
  44. Statement dosfunctions{}
  45.   NPrint "Making Directory Poo on Ram Disk:"
  46.   success=MakeDir("Ram:Poo"+Chr$(0))
  47.   If success
  48.     NPrint "Okay!"
  49.   Else
  50.     NPrint "Oh no!"
  51.   End If
  52.  
  53.   VWait 50
  54.   NPrint "Renaming Ram Disk:Poo to Ram Disk:Ploppy"
  55.   success=Rename("Ram:Poo","Ram:Ploppy")
  56.   If success
  57.     NPrint "Okay!"
  58.   Else
  59.     NPrint "Oh no!"
  60.   End If
  61.   VWait 50
  62.  
  63.   NPrint "The filesize of S:Startup-Sequence is ",FileSize("S:startup-sequence")
  64.   VWait 50
  65.  
  66.   a$="HELLO THERE"
  67.   b$="XXXXXXXXXXX"
  68.   NPrint "a$=",a$
  69.   VWait 30
  70.   NPrint "b$=",b$
  71.   VWait 30
  72.   NPrint "and after I wave my magic wand..."
  73.   VWait 60
  74.   CopyByte &a$,&b$,Len(a$)
  75.   NPrint "a$=",a$
  76.   VWait 30
  77.   NPrint "b$=",b$
  78.   NPrint "And how pointless was that?"
  79.   VWait 50
  80. End Statement
  81.  
  82. Statement other{}
  83.   NPrint "The larger of 50 and 60 is ",Max(50,60)
  84.   NPrint "The smaller of 50 and 60 is ",Min(50,60)
  85.   VWait 50
  86. End Statement
  87.  
  88. readconfig{}
  89. readtimer{}
  90. dosfunctions{}
  91. other{}
  92. NPrint ""
  93. NPrint "And thats yer lot..."
  94. MouseWait
  95. End
  96.  
  97.